home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / winsock / ircii2-6.zip / SRC\IRCII-2.6\SCRIPT\FNET < prev    next >
Text File  |  1994-12-28  |  5KB  |  128 lines

  1. # The 'tabkey' script is needed as well for the proper operation of
  2. # updated for 2.2.2
  3. # this script   2-7-93
  4. alias Translate if ( A > [$0] ) {^assign CHAN $0} {^assign CHAN +$0}
  5. alias M MSG $*
  6. alias Q QUIT $()
  7. alias BEEP NOTICE $0 [Beep] $N has sent you a beep $()
  8. alias HERE WHO * $()
  9. alias ! EXEC $*
  10. alias DISPLAY LASTLOG $*
  11. alias FSET set $*
  12. alias SC MSG +$0 $1-
  13. alias BOOT KICK $C $*
  14. alias STATUS STATUS_$0
  15. bind ^W QUOTE_CHARACTER
  16. alias commands help load fnet $()
  17. alias GROUP translate $0;dochange
  18. alias dochange channel ${CHAN} $()
  19. set CLOCK OFF
  20. set CONTINUED_LINE       
  21. set SCROLL ON
  22. alias STATUS_r MODE $C +tin $()
  23. alias STATUS_p MODE $C -spi $()
  24. alias STATUS_H MODE $C +ptin $()
  25. alias STATUS_U MODE $C -pn $()
  26. alias STATUS_ MODE $()
  27. alias NORMAL MODE $C +t $()
  28. alias HUSH IF ( [$({HUSHED_$0})] == [Yes] ) {UNHUSH $0} {DOHUSH $0}
  29. alias DOHUSH ^IGNORE $0 ALL;^ASSIGN HUSHED_$0 Yes;echo [Hush] $0 added to hush list
  30. alias UNHUSH ^IGNORE $* NONE;^ASSIGN -HUSHED_$0;echo [Hush] $0 removed from hush list
  31. alias wargs if ( [.] == [$0] ) {names $C} {dowch $0}
  32. alias dowch translate $0;showw
  33. alias showw names ${CHAN} $()
  34. alias w if ( [$0] ) {wargs $0} {names}
  35. on ^TOPIC * echo [Status] $0 has changed the topic to "$1-"
  36. on ^MSG * echo <*$0*> $1-
  37. on ^KICK * doonkick $*
  38. on ^NOTICE * echo <@$0@> $1-
  39. on ^NOTICE "* [Beep] *" echo [Beep] $0 $3-
  40. on ^SEND_NOTICE * comment
  41. #
  42. # The following are channels which regularly exist and are in foreign
  43. # languages. Mask them out completely  - they cause the w list to be
  44. # too cluttered without telling you anything useful.
  45. #
  46. # which clogg up the names list.
  47. on ^NAMES #T.P.D comment
  48. on ^NAMES +Nippon comment
  49. on ^NAMES 42 comment
  50. on ^NAMES #NIPPON comment^
  51. on ^NAMES #* comment
  52. on ^NAMES #fj.* comment
  53. on ^SEND_NOTICE "* [Beep] *" echo beep $0
  54. on ^PUBLIC_NOTICE * echo <$0/$1> $2-
  55. on ^PUBLIC * echo <$0> $2-
  56. on ^WALL * echo <#$0#> $1-
  57. on ^INVITE * echo [RSVP] $0 has invited you to join group $1
  58. on ^NOTIFY_SIGNON * echo [Spy] $0 has signed on on channel $1-
  59. on ^NOTIFY_SIGNOFF * echo [Spy] $0 has signed off $1-
  60. on ^NOTIFY_CHANGE * echo [Spy] $0 has changed groups $1-
  61. on ^LEAVE * DO_LEAVE $*
  62. on ^JOIN * DO_JOIN $*
  63. alias DO_JOIN if ( [$0] == N ) {echo [Change] You are now in group $1} {echo [Status] $0 has entered the group}
  64. alias DOONKICK if ( [$0] == N ) {echo [Change] You have been forcibly removed from group $2 by $1} {echo [Status] $0 has been forcibly removed from group $2 by $1}
  65. alias DO_LEAVE if ( [$0] == N ) {comm} {echo [Status] $0 has left the group}
  66. on ^SIGNOFF * echo [Signoff] $0 has signed off
  67. on ^CONNECT * echo [Signon] Welcome to IRC $N
  68. on ^SEND_PUBLIC * echo $1-
  69. on ^NICKNAME * echo [Status] $0 has changed his or her nickname to $1
  70. on ^MODE * echo [Status] Group status modified \($2-\) by $0
  71. on ^MODE "* * +ti *" echo [Status] Group status changed to restricted by $0
  72. on ^MODE "* * -psi *" echo [Status] Group status changed to public by $0
  73. on ^MODE "* * +psti *" echo [Status] Group status changed to hidden by $0
  74. on ^MODE "* * +tin *" echo [Status] Group status changed to restricted by $0
  75. on ^MODE "* * -sipn *" echo [Status] Group status changed to public by $0
  76. on ^MODE "* * +pstin *" echo [Status] Group status changed to hidden by $0
  77. on ^MODE "* * -ps *" echo [Status] Group status no longer hidden by $0
  78. on ^MODE "* * +o *" echo [Status] $0 has given moderator status to $3-
  79. on ^MODE "* * -o *" echo [Status] $0 has removed moderator status from $3-
  80. alias PASS MODE $C +o $0
  81. set LASTLOG_LEVEL ALL -CRAP
  82. set HISTORY 20
  83. set LASTLOG 250
  84. # set MINIMUM_SERVERS 20
  85. #
  86. # This has been revised. Now, instead of rotating the list on tab,
  87. # it seeks through the list. If an entry is used, it is removed from
  88. # its old position and placed at the head of the list. Thus if you
  89. # are cutrrently talking to just two people, it cycles between them
  90. # without having to go back through the entire list.
  91. #
  92. # All this functionality is in the tabkey  script
  93. load tabkey
  94.  
  95. alias NickServ msg NickServ@Service.de $*
  96. alias NoteServ msg NoteServ@Service.de $*
  97. # -- set SHOW_NUMERICS ON
  98. # 311 312 313 314 316 317 318 319 353 401 changed for 2.2.2 (server == $0)
  99. on ^481 * echo [Error] You are not moderator of this group
  100. on ^403 * echo [Error] There is no group $1
  101. on ^421 * comm
  102. on ^391 * echo [Info] Date at $0 is $2-
  103. on ^442 * echo [Error] $1 is not in this group
  104. on ^401 * echo [Error] $1: No such nickname
  105. on ^311 * echo [Info] $1 is $2@$3 \($5-) on group $4
  106. on ^312 * echo [Info] Connected to $1 \($2-)
  107. on ^317 * echo [Info] Last command: $2-6
  108. on ^314 * echo [Info] $1 was $2@$3 \($5-)
  109. on ^315 * echo [Info] Connected to $0 \($1-)
  110. on ^313 * echo [Info] $1 is an IRC god
  111. on ^316 * echo [Info] $0 is a group moderator
  112. on ^341 * echo [Invite] Invitation message sent to $0
  113. on ^331 * echo [Topic] The topic is $1-
  114. on ^324 * echo [Status] Group mode is $2-
  115. on ^324 "* +ti" echo [Status] Group mode is restricted
  116. on ^324 "* +t" echo [Status] Group mode is public
  117. on ^324 "* +psti" echo [Status] Group mode is hidden
  118. on ^324 "* +tin" echo [Status] Group mode is restricted
  119. on ^324 "* +tn" echo [Status] Group mode is public
  120. on ^324 "* +pstin" echo [Status] Group mode is hidden
  121. on ^406 * echo [Error] There was no $1
  122. on ^301 * echo [Info] $0 is away \($1-)
  123. on ^315 "* * End * WHO *" comment
  124. on ^473 * echo [Error] $1: You must have an invitation to enter a restricted group
  125. #
  126. ECHO [Status] You are using the IRC ForumNet compatibility options.
  127. ECHO [Status] Use commands to see the basic commands available
  128.